home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC 22 / LogicielsPC_22.iso / ZoomAut / Le traducFrAn / lien.vbs < prev    next >
Text File  |  2001-10-24  |  622b  |  11 lines
  1. Dim WSHShell
  2. Set WSHShell = WScript.CreateObject("WScript.Shell")
  3. Dim MyShortcut, MyDesktop, DesktopPath
  4. DesktopPath = WSHShell.SpecialFolders("Desktop")
  5. Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Le Traducteur Anglais-Franτais.lnk")
  6. MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\CD LPC22\Maj\Le traducteur FrAn\traduct.exe")
  7. MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\CD LPC22\Maj\Le traducteur FrAn\")
  8. MyShortcut.WindowStyle = 4
  9. MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\CD LPC22\Maj\Le traducteur FrAn\UKFR.ICO, 0")
  10. MyShortcut.Save
  11.